home *** CD-ROM | disk | FTP | other *** search
/ Express Pd: GALORE / Express Pd Galore - The Amiga PD & Shareware CD (1994)(Express Pd)[!][Amiga-CD32-CDTV].iso / 3.0 / rexxc / ep_pubscreen.dopus < prev    next >
Text File  |  1993-12-27  |  413b  |  26 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1993 DEFECT
  3.    schaltet auf anderen Pubscreen um
  4. */
  5. options results
  6.  
  7. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  8.  do
  9.   address 'DOPUS.1'
  10.   toptext 'No Eagleplayer found !'
  11.   exit
  12.  end
  13.  
  14. address 'DOPUS.1'
  15. getstring 'Enter_Public_Screen_to_Open_Eagleplayer_on'
  16. aha=result
  17.  
  18. address 'rexx_EP'
  19. pubscreen aha
  20. aha=result
  21.  
  22. address 'DOPUS.1'
  23. toptext 'Eagleplayer: '||aha
  24.  
  25. exit
  26.